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Cee eee eee AAA AE EEA EAR EAA E EAA AEREAAAEEAA AEE REE 
RODULE Sexchdef; 

* 
oe Version: *v04-000' 

& 


PARARASALAAAAAALALAAAALELAAAAALALA LESS ALES ELSES EERE REARS ER ERR ERAS RARE AS ESAS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* 
® 
® 
® 
fe 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR ANY. OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OTHERWISE MADE AVAILABLE TO ANY ®* 
OTH NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED” * 
® 
® 
® 
& 
® 
* 
*® 
® 
® 
® 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
coppoketite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


@eeneeeeeeeee eee eeeeeane 
am 
= 
™ 
z 
S 
© 


Jeet 
/* FACILITY: EXCHANGE = Foreign volume interchange utility 
® 
. ABSTRACT: Data structure definitions for EXCHANGE. 
& 
oe ENVIRONMENT: VAX/VMS operating system, unprivileged user-mode utility 
® 
AUTHOR : CW Hobbs 
e 
a DATE: 12-July-1982 Last Edit: 
eo 
/* MODIFIED BY: 
/*t 
/ 
/ 


m 


/ 
/ 
/ 
/ 
A 
/ 
/ 
/ 


F 
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/+ 

/* 

a Local constants which define the sizes of adjustable structures in SEXCHDEF 
/t- 

#io_buf blocks = 12; 
#rec_buf_size = 512; 


/* must be 5 or more, at least 2 blocks 
/* larger than rec_buf_size, and LEQU 127 


/e+ 


/* 
DMPDSV - Flag options for EXCHSDBG_DUMP_DOSV debugging routine 


/t- 
AGGREGATE dmpdsv STRUCTU 


RE PREFIX dmpdsv$; 
enpeee STRUCTURE BYTE UNSIGNED; 
olb BITFIELD MASK; /* print volb and dosv addresses 
status BITFIELD MASK; /* print status flags 
position BITFIELD MASK; /* print current position 
entries BITFIELD MASK; /* print the directory entries 


END dmpdsv; 
END dmpdsv; 


{tt 


/* 
e DOSNXT - Flag options for EXCH$D0S11_NEXT_ENTRY 
® 


/*- 
AGGREGATE dosnt STRUCTUR 


E PREFIX dosnxt$ 
dosnxt STRUCTURE BYTE UNSIGNED; = 
rewind BITFIELD MASK; /* “rewind’’ to the start of the tape 
count_blocks BITFIELD MASK; /* make sure that the block count : valid 
END dosnxt; 
END dosnxt; 


/+ 


/* 
S EXCHBLK = Constant definitions for block type codes 


/*- 
CONSTANT | 


copy. /* work area for COPY -_— owe verbs 
dire /* DIRECTORY verb work a 

dosii, Je volume seecitics for pos-11 
dos!1ctx, /* DOS-11 file context block 

exc /* ie obal data sbrucure 

fil /* Tile context block 


init. /* INIT verb work a 
moun, /* AOUNT verb work area 
namb, /* name block 
/* exchblk$k_rmsb - code for file block 
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rtil, /* voluge | spe ecifics for RT-11 
rtiictx, /* R context block 
volb, /* voluse bisc k 

rtnam /* R Teit. name routine work area 


) 
EQUALS 255 INCREMENT =1 PREFIX exchblk$; 


{te 
/t 
. FINDBIN = Return status codes for PDP_F IND_BINARY_RECORD 
/t- 
ETE 
success, /* found a record 
eob, /* end of buffer, no record found 
/* checksum failed to match 
/* record larger than output buffer 
bad_fm /* badly formed record 
EQUALS 0 INCREMENT 1 PREFIX findbin$; 
CONSTANT Lobound EQUALS findbin$k_success PREFIX fin 
CONSTANT hibound EQUALS findbin$k_bad_fmt PREFIX fin 
/t+ 


/* 
. FINDSTM - Return status codes for PDP_F IND_STREAM_RECORD 


/e- 
CONSTANT 


success, /* found a record 

ctrlz_eof, /* *72 at beginning of record 

eob, /* end of buffer, no record found 
no_term, /* end of buffer, porte: record found 
bad_fmt /* record longer than output buffer 


EQUALS 0 INCREMENT 1 PREFIX findstm$; 
CONSTANT lLobound EQUALS findstm$k_success PREFIX findstm$; 
CONSTANT hibound EQUALS findstm$k_bad_fmt PREFIX X findstm$: 


/t+ 


/e 
e PRSOPT = Flag options for EXCHSCMD_PARSE_FILESPEC 


/t- 
AGGREGATE prsopt STRUCTUR 


END prsopt; 


E PREFIX prsopt$; 
prsopt STRUCTURE BYTE UNSIGNED; 
virtual_device BITFIELD MASK; /* parse device name as a virtual device 
no_get_value BITFIELD MASK; /* skip CLISGET_VALUE coll. use parameter name as value 


m 


/ 
/ 
/ 
/ 
/ 
/ 
/ 
A 
/ 
/ 
/ 
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END prsopt; 
\AR | 
/* 
RTNXT = Flag options for EXCHSRTACP_NEXT_ENTRY 
. 
/t- 
AGGREGATE rtnxt STRUCTURE PREFIX rtnxt$; 
rtnxt STRUCTURE BYTE UNSIGNED; 

permanent BITFIELD MASK; /* look for permanent entries 

empty BITFIELD MASK; /* look for empty entries 

tentative BITFIELD MASK; /* look for tentative entries 

unknown BITFIELD MASK; /* Look for invalid entries 

skip_check BITFIELD MASK; /* skip the check for moved entry . 

ph to oupand BITFIELD MASK; /* skip expanding the radix-50 name to ascii 

rtnxt; 


END rtnxt; 
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/e+ 

i: SCOPY = copy block 

i Contains the work area for the COPY and TYPE verbs 

/t- 

AGGREGATE copy STRUCTURE PREFIX copy$; 

/* Dynamic character string descriptors for name components. These strings are reclaimed at the start of each copy 


/* 

te default_filename QUADWORD UNSIGNED; /* desc for sticky name 
size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLKS$S_copy) 
type BYTE UNSIGNED; /* vee code field (symbol EXCHBLK$K_copy) 

Po std_fill BYTE FILL; /* unused 
input_ filename QUADWORD UNSIGNED; /* desc for current item from input parameter List 

y output_ filename QUADWORD UNSIGNED; /* desc for output parameter 

te input _sticky_name QUADWORD UNSIGNED; /* name to make input files sticky 

{\ q_boot QUADWORD UNSIGNED; /* qualifier /BOOT=string 

> qa_fdl QUADWORD UNSIGNED; /* qualifier /FOL=string 

pe CONSTANT start_zero EQUALS .; /* here to end is cleared for each copy command 

jn Integer valued command qualifiers 
q_allocation LONGWORD UNSIGNED; /* qualifier /ALLOCATION=n (optional) 
q_extension LONGWORD UNSIGNED; /* qualifier /EXTENSION=n (optional) 
q_start_block LONGWORD UNSIGNED; /* qualifier /START_BLOCK=n 


/* 
pe Flags for boolean DCL command qualifiers 


qual_flags STRUCTURE LONGWORD UNSIGNED; /* the whole flags longword 
Q_best_try_contiguous BITFIELD MASK; 
{\ q_confirm BITFIELD MASK; 
q_contiguous BITFIELD MASK; 
a. =Gelete BITFIELD MASK; 
Log BITFIELD MASK; 
- “nolog_explicit BITFIELD MASK; /* we had an onpi ert as 
a_protect BITFIELD MASK; /* value for protect bit useful unless explicit also set 
aprotect_explicit BITFIELD MASK; /* an explicit PPROTECT or MONOPR OTECT was seen 
a_replace BITFIELD MASK; 
“rewind BITFIELD MASK; 
q_system BITFIELD MASK; 
3 “truncate BITFIELD MASK; 
a RD qual_flags; 
. Local copy command flags 
copy. aftags, STOUC TURE eitriecn. UNSIGNED; /* the whole flags longword 
ple_files TFIELD MASK; /* the input potentially describes oul tipte files 
type_command BITFIELD MASK: /* the command is TYPE rather than COPY 


/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
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reopen_input BITFIELD MASK; 
reopen- neprogress staat MASK; 
END copy_ flags; 


/* 
S Other misc data items 


te max_rec LONGWORD UNSIGNED; 

ie Work area for the current input file 
inp_filb ADDRESS; 

, inp_namb ADDRESS; 

® 

oe Work area for the current output file 
out _filb ADDRESS; 
out_namb ADDRESS; 


/* 
CONSTANT end_zero EQUALS .; 
CONSTANT “‘Length"’ EQUALS .; 


END copy; 
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/* 
/* 


reopen prey ious input file (due to RT-11 bad file) 
current file has been reopened 


current maximum output Length 


pointer to a filb for the input file 
pointer to a namb describing the input file 


pointer to a filb for the output file 
pointer to a namb describing the output file 


no need to clear the buffers (or create pages not to be used) 
length of data structure 


m 


~Ss POSS SS 


/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 


~ 
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/* 
/* Generic file context block. This is the front part <f both the RT1I1CTX and DOSTICTX blocks, and is used 
ss by the PDP record routines shared by both RT-11 and v1S-11 formats 


GEGRESATE ctx STRUCTURE PREFIX ctx$; 
a Links to the queues of in-use and available blocks, plus standard type and size fields 


header baad bo QUADWORD UNSIGNED; /* queue header 
flink ADD NEE /* forward Link 
blink ADDRES S: /* reverse Link 
, END Link; 
* 
size WORD UNSIGNED; /* standard size of the block ssyapet EXCHBLK$S_dos11ctx) 
type BYTE UNSIGNED; /* type code field (symbol EXCHBLKS$K_dos11ctx) 
ye std_fill BYTE FILL; /* unused 
pe alloc ADDRESS; /* Link to List of allocated blocks 
. Addresses of associated control structures 
assoc _filb ADSORESS; /* address of the filb 
re assoc_volb ADDRESS; /* address of the volb 
1/0 buffer for this record stream 
® 
te buffer ADDRESS; /* Pointer to the buffer 
CONSTANT buffer_blocks EQUALS #io_buf_blocks; /* size of the buffer in blocks 
o CONSTANT buffer_length EQUALS #io_buf_blocks*512;  /* size of the buffer in bytes 
CONSTANT start_zero EQUALS .; /* here to end is cleared for each copy command 


/t 
M Data to describe a record stream in the file. 


cur_block LONGWORD UNSIGNED; /* pbn of current block 
eof_block LONGWORD UNSIGNED; /* pbn of Last block in file 
- cur_byte LONGWORD UNSIGNED; /* offset into the block 
. Flags for an open file. This longword will be zero when file is not open 
® 


flags STRUCTURE Loney “yg /* the whole flags Longword 


RD 
stream_active BITFIELD K; /* block currently describes an open file 
output. “file BITFIELD MA MASK: /* ett currently describes an output file 
ush BITFIELD MASK; /* tell advance routine to flush last block 
pointer BITFIELD MASK: /* tape position is at this file 
ags; 


/* 

. Pointers to the 1/0 buffer for this record stream 
buf _base_block LONGWORD UNSIGNED; /* Pon of first block in buffer 
buf~high_block LONGWORD UNSIGNED; /* Pon of last block in buffer 
high_block_written CONGUORD UNSIGNED: /* Pbn of highest block to the file 


CONSTANT “‘Length’* EQUALS .; 


/* 
/* length of data structure 
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END ctx; 


/ 

i: SDIRE = Directory block 

és Contains the work area for the DIRECTORY verb 
/*- 

SESRESATE dire STRUCTURE PREFIX dire$; 


filename QUADWORD UNSIGNED; /* 
size WORD UNSIGNED; /* 
type BYTE UNSIGNED; /* 
std_fill BYTE FILL; /* 


output_file QUADWORD UNSIGNED; /* 
1 default_name QUADWORD UNSIGNED; /* 
P CONSTANT start_zero EQUALS .; /* 
* 
Some pointers to RMS structures 
outrmsb ADDRESS; /* 
out fab ADDRESS; /* 
e outrab ADDRESS; /* 
Integer valued command qualifiers 
q_columns LONGWORD UNSIGNED; /* 


. Command qualifier flags 


qual flags STRUCTURE LONGWORD UNSIGNED; /* 
q_al BITFIELD MASK; /* 
{\ q_badblocks BITFIELD MASK; /* 
qa_blocks BITFIELD MASK; /* 
q_brief BITFIELD MASK; /* 
q_date BITFIELD MASK; /* 
q_deleted BITFIELD MASK; /* 
a_free BITFIELD MASK; /* 
qa_full BITFIELD MASK; /* 
q_octal BITFIELD MASK; /* 
Q_output BITFIELD MASK; /* 
Q_owner BITFIELD MASK; /* 
a_printer BITFIELD MASK; /* 
q_size BITFIELD MASK; /* 
g summary BITFIELD MASK; /* 
RD qual_flags; 


/t 
a Local directory command flags 


dire_flags STRUCTURE LONGWORD; 
Ttem_to_print BITFIELD MASK; /* an item 


4 
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file name parameter to command 


standard size of the block (symbol EXCHBLK$S_dire) 
Sd a field (symbol EXCHBLK$K_dire) 
unu 


a 
Dynamic character string descriptors for name components 


desc for /OUTPUT file name 
desc for sticky name 


here to end is cleared for each directory command 


A $RMSB structure for the /OUTPUT file block 
Ref to fab for output 
Ref to rab for output 


qualifier /COLUMNS=n (always present) 


the whole yheee Longword 
qualifier /AL 

qualifier /BADBLOCKS 
qualifier /BLOCKS 
qualifier /BRIEF 
qualifier /DATE 
qualifier /DELETED 
qualifier /FREE 
qualifier /FULL 
qualifier /OCTAL 
qualifier /OUTPUT=<filespec> 
qualifier /OWNER 
qualifier /PRINTER 
qualifier /SIZE 
qualifier /SUMMARY 


is waiting to be printed 


mn 


Sr 


/ 


N 
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items printed BITFIELD MASK; /* one or more items have been printed 
END dire_flags; 


i 
i. Other misc data items 


item_width LONGWORD UNSIGNED; /* width of a single directory Listing item 
List _width LONGWORD UNSIGNED; /* maximum Listing width 

cur width LONGWORD UNSIGNED; /* current Listing width 

cur_column LONGWORD UNSIGNED; /* current column in Listing buffer 


uffer CHARACTER LENGTH 512; /* buffer where Listing Lines are assembled 
CONSTANT item_spacing EQUALS 3; 


CONSTANT “‘Length’’ EQUALS .; /* Length of data structure 
END dire; 


ft 


~>P ~*~ ™ 


/ 
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/e+ 
/* 
A $D0S11 = volume specific structure for an DOS-11 volume 


/* Contains all the DOS-11 specific control structures for a volume. This structure would 
. normally hang from VOLBSA_VFMT_SPECIFIC. 


/e= 


suey dos11 STRUCTURE Macid t, dos11$; 

he dumm DWORD FILL; /* filler to put the size and type fields in the right spot 
am, WORD UNSIGNED; /* standard size of the block seympot EXCHBLK$S_rmsb) 
type BYTE UNSIGNED; /* type code field (symbol EXCHBLK$K_rmsb) 
std_fill BYTE FILL; /* unused 


CONSTANT start_zero EQUALS .; 
- Variables to describe the state of the DOS-11 device go here 
status STRUCTURE WORD pt yg ee /* complete status word 


osition_valid BITFIELD 3 /* value in dosi1$l_current_file is valid 
eg_of_tape BITFIELD 3 /* Last operation rewound the magtape “ 
tape_mark BITFIELD MASK; /* magtape read found a tape mar 
end_of_tape BITFIELD : /* magtape read found two consecutive tape marks 
directory BITFIELD MASK; /* magtape aearectory is complete and vali ¢.. 
current_marked BITFIELD MASK; /* file underneath the heads marked with 
error rewind BITFIELD MASK; /* tape has been rewound due to error 

P END status; 

® 

/* Remember which file on the tape was last read. The file at BOT is file #0. The current_file 

a number in conjunction with the tan Bey bits marks a location on the tape. 

current_file LONGWORD UNSIGNED; 


/* 
es Directory entries are Linked from here. This is really just a queue of the Labels 
entry ag hig QUADWORD UNSIGNED; /* queue header 
try_flink ADDRESS; /* forward Link 
entre “blink ADDRESS; /* reverse Link 
END tatry., header; 


/* The address of the current label for wildcard operations. Note that this will not necessarily correspond 
= to the current_file position. 


, current_entry ADDRESS; /* address of the current entry in the queue 
e 

pn Various bits and pieces for 10 operations on tapes 

jiosb STRUCTURE QUADWORD wrtipsd 


iosb_status WORD UN SIGNED; /* returned status 
counts UNION; 
iosb _skipent WORD; /* number of files or records skipped (signed) 
josb. pyteces WORD UNSIGNED; /* size of transfer 
ounts; 


jiosb_char LONGWORD UNSIGNED; /* characteristics buffer 
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END iosb; 
. We need a scratch buffer to read in our tape labels 
label_buf CHARACTER LENGTH 14; /* anything over 14 is invalid 
* The routine EXCH$10_D0S11_COUNT_BLOCKS stores the block count in the next field 
Z block count WORD UNSIGNED; 


CONSTANT end_zero EQUALS .; 
CONSTANT “‘Length’’ EQUALS .; /* Length of data structure 


END dos11; 
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/* 
: DOS-11 “directory” entry 
o 


GSSRESATS dosilent STRUCTURE PREFIX dosllent$; 
oe Links to the rest of the entries for a tape 


header aed} om QUADWORD UNSIGNED; /* queue header 
flink ADDRESS; /* forward Link 
blink ADDRESS: /* reverse Link 

nk; 


/* The entry info will be copied into the Gopi ictx entry, put a marker 
/* so that we can automatica.ly compare the lengths 


CONSTANT “‘start_entry’’ EQUALS .; 
/* Next seven words map directly onto the 14-byte mag tape label 


fitenese.. 1 LONGWORD UNSIGNED; /* Red} s=3 characters 
otype WORD UNSIGNED; /* 3 Radix-50 characters 
aN STRUCTURE WORD UNSIGNED; /* User ID code 
member BYTE UNSIGNED; /* Member number 
group BYTE UNSIGNED; /* Group number 
protection : WORD UNSIGNED; /* Protection code 
ate D UNSIGNED; /* Creation date field 
« filename_2 WORD UNSIGNED; /* 3 Radix-50 characters 
Rest of fields are computed 
blocks WORD UNSIGNED; /* Total length of file 
file number WORD UNSIGNED; /* Position of file on tape, first file is #0 


<1 ne yg > et =, UNSIGNED; 

Toc BITFIELD MASK; /* The "BLOCKS" field is correct 
END roy status; 

CONSTANT “‘end_entry’’ EQUALS .; 

CONSTANT ““Length*’ EQUALS .; /* Length of data structure 


END dosilent; 


—— 
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/* 


/* DOS-11 file context block This is a combination of the FAB, RAB and NAM block 


an for an DOS-11 random access file 


ROGREGATE dosiictx STRUCTURE PREFIX doslictx$; 


oS Links to the queues of in-use and available blocks, plus standard type and size fields 


header STRUCTURE QUADWORD UNSIGNED; /* 
flink ADDRESS; /* 
blink ADDRESS; /* 
pa END Link; 
size WORD UNSIGNED; /* 
type BYTE UNSIGNED; /* 
fe std_fill BYTE FILL; /* 
fs alloc ADDRESS; /* 
. Addresses of associated control structures 
assoc_filb ADDRESS; /* 
ye assoc_volb ADDRESS; /* 
. 1/0 buffer for this record stream 
Fe buffer ADDRESS; /* 
F CONSTANT start_zero EQUALS .; /* 
Data to describe a record stream in the file. 
cur_block LONGWORD UNSIGNED; /* 
eof block LONGWORD UNSIGNED; /* 
te cur_byte LONGWORD UNSIGNED; /* 


/ 
flags STRUCTURE LONGWORD UNSIGNED; /* 
stream_active BITFIELD MASK; /* 
output_file BITFIELD MASK; /* 
flush BITFIELD MASK; /* 
pormter BITFIELD MASK; /* 
ND flags; 


ueue header 
orward Link 
reverse Link 


standard size of the block (symbol EXCHBLK$S_dos11ctx) 
type oote field (symbol EXCHBLKSK_dos11ctx) 
unuse 


Link to List of allocated blocks 


address of the filb 
address of the volb 


Pointer to the buffer 
here to end is cleared for each copy command 


pbn of current block 
pbn of Last block in file 
offset into the block 


a Flags for an open file. This longword will be zero when file is not open 


the whole flags longword 

block currently describes an open file 
block currently describes an output file 
tell advance routine to flush last block 
tape position is at this file 


/* 
a Pointers to the 1/0 buffer for this record stream 


buf _base_block LONGWORD UNSIGNED; /* 
buf niga eploc’ LONGWORD UNSIGNED; /* 
high_block_written LONGWORD UNSIGNED; /* 


Pbn of first block in buffer 
Pbn of Last block in buffer 
Pbn of highest block to the file 


. The next part is a duplicate of the directory entry 


current_entr ADDRESS; /* 
entry_union UNION; 


the address of this entry in the ‘“‘directory’’ queue 


2 eee eee el 
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try 
entry_fields STRUCTURE; 


weed « ne ye STRUCTURE WORD UNSIGNED; 
Tocks_valid BITFIELD MASK; 
END entry status; 


END entr 


y.f elds; 
END entry_un ng 


Expanded name fields 


exp_fullname_len rod UNSIGNED; 
exp_name_len™ vor at eeicte. 
exp_type_Len SIGNED; 
exp_directory LOARACTER UNENGTH 19; 
exp_ fullname CHARACTER LENGTH 153; 
exp_name CHARACTER LENGTH 9; 
exp_type CHARACTER LENGTH 3; 
exp_date CHARACTER LENGTH 11; 


/* 
CONSTANT end_zero EQUALS 3 
CONSTANT “‘Length’’ EQUALS .; 


END doslictx; 


Next seven words map directly onto the 14-byte mag tape 
a 


tijenene. 1 LONGWORD UNSIGNED; 
etype WORD UNSIGNED; 
a STRUCTURE WORD i ae 
aay UNSIGNED; 
group BYTE UNSIGNED; 
ND uic; 
protection WORD UNSIGNED; 
ate WORD UNSIGNED; 
P filename_2 WORD UNSIGNED; 
wv 
. Rest of fields are computed 
* 
blocks WORD UNSIGNED; 
file number WORD UNSIGNED; 


F 
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CHARACTER LENGTH dosillent$k_end_entry - dosilentSk_start_entry; /* The overall entry 


Label 


Rodin characters 
Radix-590 characters 
User ID code 
Member number 
Group number 


Protection code 
reation date field 
Radix-50 characters 


Total length of file 
Position of file on tape, first file is #0 


The "BLOCKS" field is correct 


Length of the concatenated name 

Length of the name 

Length of the file © extension. gsype? 

UIC format directory ‘C000, 

Name in normal form, no Oe eaded blanks 
Blank padded name 

Blank padded extension 

VMS format ascii date 


Length of data structure 
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/e+ 
is SEXCG = EXCHANGE Global data 
o Contains all the global data necessary for the EXCHANGE facility 
/t- 
GEGREGATE excg STRUCTURE PREFIX excg$; 
. Flags for command Line qualifiers and local stat 
flags Luaet a WORD NEHES fas /* whole flags rr 


DS EEEEEEEEEOOOOeeEeEE eee 


BITFIELD + /* Control/C AST has been received 
q.cache” BITFIELD MA /* EXCHANGE /OACHE is. in ofrect ~~ RT=11 
q- “message BITFIELD MASK; /* EXCHANGE {MESSAGE s in effect i 
oreign. command BITFIELD MA /* exchange is runn ng in single-command mode / 
exiting BITFIELD MA 7= exit handler is active / 
a END flags; A 
oe Channel for input terminal, used for setting control/c asts. 0 if input is not a terminal device a 
ye teechannel WORD UNSIGNED; 4 
mi copy work ADDRESS; /* pointer to the work area for COPY and TYPE 4 
size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S_EXC / 
type BYTE UNSIGNED; /* type code field (symbol EXCHBLKS$K_EXC 4 
,  Stalfill BYTE FILL; /* unused , 
Aa Work areas for the individual command verbs (1 of these at top for alignment) a 
dire_work ADDRESS; /* pointer to the work area for 1 aaa / 
init_work ADDRESS: /* pointer to the work area for IN ie A 
moun_work ADDRESS; /* pointer to the work area for MOUN / 
te rtnam_work ADDRESS; /* pointer to the work area for DELETE and RENAME A 
ye Process identification items 4 
uic_member WORD UNSIGNED; /* binary member number for uic directories / 
uic_group WORD UNSIGNED; /* binary group number for uic directories / 
ye Username CHARACTER LENGTH 12; = /* process’ username A 
. Exit handler for per-command activity, exh_routine is 0 if no handler is declared / 
exit_block STRUCTURE ; 4 
exh_routine ADDRESS /* address of exit handling routine / 
exh_arg_count LONGWORD UNSIGNED; /* number of arguments for routine 

exh_status ADDRESS; /* address to store status code, reason for exit Al 

exh. _volb ADDRESS /* exit handler specific argument (volb address) 


condvalu _ LONGWORD UNSIGNED; /* put the status code here 
END “rit ‘block; 


/e 
. Exit handler for global /CACHE actions 


éxh_flink ADDRESS; /* system-maintained forward Link 
| 


EXCDEFS.SDL;1 


cachexit sbLock aad dew 
cachéxh_flink ADDR $3: 
cochexh= ah ADDRES 
cachexh-arg_ count PONGUORD UNSIGNED; 
cachexh_status ADDRESS; 
cachexh-condvalu LONGWORD UNSIGNED; 
END cachexit_block; 


/* 
Jn Queue headers for managed resources 
doslictx_alloc 


ADDRE 
doslictx use Sraucrure QUADWORD Nei GNED: 
dos1Tctx_use ADDRESS; 


Gosiicts. use. =plink ADDRESS; 
gentlete on a STROCT Ue QUADWORD UNSIGNED; 

siTctx_avi_f ADDRESS; 

dosilctx= avl “blink ADDRESS; 


a END dosiTctx_avl; 
alloc ADDRESS; 
ae STRUCTURE QUADWORD UNSIGNED; 
Tilb_use_flink ADDRESS; 
ilb-use-blink ADDRESS; 


b . 

TROCTURE QUADWORD UNSIGNED; 
vl_flink ADDRESS; 

vt blink ADDRESS: 


namb_alloc ADDRESS; 
namb_use STRUCTURE QUADWORD UNSIGNED; 
namb_use_flink ADDRESS; 
namb_ wes =bl ink ADDRESS; 


END fA 
namb_avl meTROLTORE QUADWORD UNSIGNED; 
Ramb_avi_flink ADDRESS; 
namb_ avl “blink ADDRESS; 
END inamb_ avl; 


rmsb_alloc ADDRESS; 

rmsb_use STRUCTURE QUADWORD UNSIGNED; 
fmsb_use_flink ADDRESS; 
rasb_ ue =bl ink ADDRESS: 


END F 
rasb saul rSTROCTORE QUADWORD UNSIGNED; 
avi_flink ADDRESS; 
rasb” avl “blink ADDRESS; 

END fmsb_avl; 


rtlictx_alloc ADDRE 

rtilctx use STRUCTURE QUADWORD One| ENED; 
rtiTctx_use_flink ADDRESS; 
etlictx” use. “blink ADDRESS; 


END rtiTc 
rtiictx oul $TROC TURE QUADWORD UNSIGNED; 


/t 


H 
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system-maintained forward Link 

address of cachexit handling routine 

number of er pnente for routine 

address to store status code, reason for cachexit 
put the status code here 


/* Head of List of all allocated $doslictxs 


Head of i Gyeue of $doslictxs in-use queue 
Forward 
Backward Link 


Head of queue of all available $doslictxs 
Forward Link 
Backward Link 


Head of List of all allocated $filBs 

Head of queue of file blocks in use queue 
Forward Link 

Backward Link 


Head of queue of all available $filBs 
Forward Link 
Backward Link 


Head of List of all allocated SNAMBs 

Head of queue of name blocks in use queue 
Forward Link 

Backward Utnk 


Head of queue of all available SNAMBs 
Forward Link 
Backward Link 


Head of List of all allocated SRMSBs 
Head of queue of SRMSBs in-use queue 
Forwar 

Backward Link 


Head of queue of all available SRMSBs 
peek Link 
Backward Link 


Head of List of all allocated $rtlictxs 
Head of queue of $rtilctxs in-use queue 
Forward Link 
Backward Link 


Head of queue of all available $rtlictxs 


| 
————eeee 
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rtlictx_avl_flink ADDRESS; /* Forward Link 
rtlictx_avi_blink ADDRESS; /* Backward Link 
pe END rtiTctx_avi; 
volb_alloc ADDRESS; /* Head of List of all allocated S$VOLBs 
volb_use STRUCTURE QUADWORD UNSIGNED; /* Head of pyeue of volume blocks in use queue 
volb_use_flink ADDRESS; /* Forward Link 
volb_use_blink ADDRESS; /* Backward Link 
END volb use; 
volb_avl STROCTURE QUADWORD UNSIGNED; /* Head of queue of all available $VOLBs 
volb_avi_flink ADDRESS; /* Forward Link 
volb_avi_blink ADDRESS; /* Backward Link 


p END volb_avl; 
; RMS data structures for command output, these point to memory at the end of the block 


sysout_fab ADDRESS; /* pointer to RMS File access block 
sysout_rab ADDRESS; /* pointer to RMS Record access block 
sysout_nam ADDRESS; /* pointer to RMS Name block 
sysout_ebuf ADDRESS; /* pointer to RMS expanded name buffer 
te sysout_rbuf ADDRESS; /* pointer to RMS result name buffer 
Je Buffer for formatting 
® 
fao_buffer CHARACTER LENGTH 258; /* used by util_fao_buffer 


/* Other items which would be in here if SDL supported external Literals. This space is allocated with the 
/* rest of the block. Certain pointers above point to these buffers. This area is part of the block, it 
= is only due to restrictions in SDL that these are not actually defined here. 


/* buf_sysout_fab CHARACTER LENGTH #fab$k_bin; /* RMS File access block 

/* buf_sysout_rab CHARACTER LENGTH #rab$k_bln; /* RMS Record access block 
/* buf_sysout_mam CHARACTER LENGTH #nam$k_bln; /* RMS Name block 

/* buf _sysout_ebuf CHARACTER LENGTH #nam$c_maxrss; /* RMS expanded name buffer 
/* buf _sysout_rbuf CHARACTER LENGTH #nam$c_maxrss; /* RMS result name buffer 


CONSTANT “‘Length** EQUALS .; /* Length of data structure 
END excg; 


/e 
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/e+ 

/e 

hn SFILB = File Block 

o Contains data to describe a particular active file 


0 
CONSTANT rfmt~hibound EQUALS filbSk_rfmt_stream; | /* high bound 
transfer _mode BYTE UNSIGNED; /* transfer mode code, a constant filb$Sk_xfrm_xxx 


/t- 
AGGREGATE filb STRUCTURE PREFIX filb$; 
/* 
a Links to the queues of in-use and available blocks, plus standard type and size fields 
header STRUCTURE QUADWORD UNSIGNED; /* queue header 
flink ADDRESS; /* forward Link 
un. ,AbOne ss: /* reverse Link 
nk; 
size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLKS$S_NAMB) 
type BYTE UNSIGNED; /* type code field (symbol EXCHBLKSK_NAMB) 
te std_fill BYTE FILL; /* unused 
- alloc ADDRESS; /* Link to List of allocated blocks 
/* The following name sicing has several uses de ending on the routine. For example, it is used to hold the 
. result name from LIBSFIND_FILE routine for EXCHSFIL11_OPEN_FILE. 
te name_string QUADWORD UNSIGNED; 
a The rest of the block will be reset to nulls each time the block is allocated 
ye CONSTANT start_zero EQUALS .; 
/* 
assoc_namb ADDRESS; /* namb for this file 
te assoc_volb ADDRESS; /* address of mounted volb for this name, 0 for Files-11 
context ADDRESS; /* pointer to volume-specific structure defining file context 
/* DOSTICTX structure for DOS-11 tape files 
/* RTIICTX structure for RT-11 disk files 
/* RMSB for Files-11 files 
se filll_wee ADDRESS; /* wildcard context for LIBSFIND_FILE routine for Files-11 files 
~ The record format for this file (the volume format byte is in the assoc_namb) 
rec. torent ‘ BYTE UNSIGNED; /* record format code, a constant filbSk_rfmt_xxx 
rfmt_invalid, /* value 0, format not set to known value 
rfat_binary, /* formatted binary records 
rfat_fixed, /* fixed Length records 
rfat_stream /* stream format records 
a ) EGUALS O INCREMENT 1; 
CONSTANT rfmt_lobound EQUALS 0; /* Low bound for case statement 
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CONSTANT ( 
xfrm_automatic, 
xfrm_block, 
xfrm e's 
* ) EGUALS 0 INCREMENT 1; 
. The carriage control for this file 


car_control BYTE UNSIGNED; 
CONSTANT ( 


none 
) EQUALS 0 INCREMENT 1; 
CONSTANT cctl_lobound EQUAL 


An Record attribute and other misc flags 


flags STRUCTURE WORD UNSIGNED; 
rfmt_explicit BITFIELD MASK; 
cctl_explicit BITFIELD MASK; 
file_erased BITFIELD MASK; 
iles_ found BITFIELD MASK; 
files_created BITFIELD MASK; 
aap cs 1e,voroten BITFIELD MASK; 
delete previous BITFIELD MASK; 
name_change BITFIELD MASK; 
q.best_try_contiguous BITFIELD MASK; 
q_cont Tguous BITFIELD MASK; 
truncate BITFIELD MASK; 
te fiags; 

q_allocation LONGWORD UNSIGNED; 

extension LONGWORD UNSIGNED; 

xed_len LONGWORD UNSIGNED; 

pe pad_char BYTE UNSIGNED; 

pe result_name_len LONGWORD UNSIGNED; 

je block_count LONGWORD UNSIGNED; 

. Length of record, record address 
record_len LONGWORD UNSIGNED; 

i record ADDRESS; 

. Addresses of action routines for this file 
close_routine ADDRESS; 
delete_routine ADDRESS; 
get_routine ADDRESS; 
put_routine ADDRESS; 


CONSTANT end_zero EQUALS .; 


/ 


e 
/* 


$ 0; 
CONSTANT cctl-hibound EQUALS filb$k_cctl_none; 
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decide block or record automatically, the default, value is zero 
transfer block by block 
transfer record by record 


carriage control code, a constant filbSk_cctl_xxx 


corr ioge return, the default, value is zero 
FORTRAN files 
no carriage control 


/* 


Low bound for case statement 
/* hi d 


r 
gh boun 


the whole flags word 

record format specified 

carriage control specified 

file has been erased (e.g. due to write errors) 
one or more files have been found using this filb 
one or more files have been created using this filb 
file name contained an explicit version 

delete previous version of RT11 file during close 
the output name was changed from the input 

there is a /BEST on the input file 

there is a /CONT on the input file 

there is a /TRUN on the input file 


a /ALLOC was on the input file 
a /EXTEN was on the input file 
length of FIXED records 

pad character, default 0 


length of the result name 
size of an existing file 


length of current record 
address of current record 


address of routine to close the file 

address of routine to delete the file — 
routine to get records, g for qutputqonly tiles 
routine to put records, for input-only files 
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/* 

a No need to zero all the buffers 

Po result_name CHARACTER LENGTH 256; /* buffer for the result name 
pe and actual record for when we need move mode 


record buffer CHARACTER LENGTH #rec_buf_s 
guard_Byte BYTE FILL; /% 


a a a oe 


ize; 
eob logic much easier if we can write 1 byte past end of buffer 


CONSTANT ‘Length’ EQUALS .; /* Length of data structure 
END filb; 


/ 
/ 
/\ 
/ 
/ 
/ 
/ 
A 
/ 
/ 
/ 
/ 


M 
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/e+ 

/* 

o. SINIT = Init block 

- Contains the work area for the INIT verb 
/t- 


peeeeAte init STRUCTURE PREFIX init$; 


q “replace. retain 
RD flags: 


CONSTANT “‘Length’’ EQUALS .; /* Length of data structure 
END init; 


namb ADDRESS; /* pointer to our name block 
fe volb ADDRESS; /* pointer to our volume block 
size WORD UNSIGNED; /* standard q size.9 of the block (symbol EXCHBLK$S_INIT) 
type BYTE UNSIGNED; /* type code (symbol EXCHBLK$K_INIT) 
te std_fill BYTE FILL; /* unused 
. Character string descriptors for name components 
device QUADWORD UNSIGNED; /* desc for device name, or filename for INIT /CREATE 
pS volumeid QUADWORD UNSIGNED; /* desc for volume id (for RT-11) 
. Command qualifier variables and flags 
q_allocation LONGWORD UNSIGNED; /* size of virtual device to create /ALLOC=n 
aq. peaeee gueres LON eUOND UNSIGNED; /* number of extra words for directory entries /EXTRA=n 
9r$ D UNSIGNED; /* number of directory segments /SEGMENTS=n 
loos STRUCTURE LONGHORD UNSIGNED; /* the whole flags longword 
q_create BITFIELD MASK; /* /CREATE 
Q_message BITFIELD MASK; /* /MESSAGE 
{\ q_badblocks BITFIELD MASK; /* /BADBLOCKS 
{\ q. cbaablocks, retain BITFIELD MASK; /* /BADBLOCKS=RETAIN 
{\ BITFIELD MASK; /* /REPL 
{\ BITFIELD MASK; /* /REPLACE=RETAIN 
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/e+ 


/* 
. SMOUN = Mount block 
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. Contains the work area for the MOUNT verb 


/* pointer to our name block 
/* pointer to our volume block 


/* standard size of the block (symbol EXCHBLK$S_MOUN) 


/* type code field (symbol EXCHBLK$K_MOUN) 
/* unused 


/* desc for device nam 


/t- 
’ eee moun STRUCTURE PREFIX moun$; 
namb ADDRESS; 
ie volb ADDRESS; 
size WORD UNSIGNED; 
type BYTE UNSIGNED; 
ys std_fill BYTE FILL; 
oe Character string descriptors for name components 
device QUADWORD UNSIGNED; 
filename QUADWORD UNSIGNED; 


- Command qualifier flags 


/ 
q write LONGWORD UNSIGNED; 
Tags STRUCTURE LONGWORD UNSIGNED; /* 
Q_read_check BITFIELD MASK; 
Q.write_check BITFIELD MASK; 
q_foreign BITFIELD MASK; 
qa_virtual BITFIELD MASK; 
g message BITFIELD MASK; 
ND flags; 


CONSTANT “‘Length’’ EQUALS .; 


END moun; 


e 
/* desc for virtual device input file name 


/* /FOREIGN device mount 
/* /VIRTUAL virtual device mount 
/* /MESSAGE was given 


/* Length of data structure 


7 
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om 

® 

SNAMB = File Name Block 

A Contains a parsed file specification 


/t- 
AGGREGATE namb STRUCTURE PREFIX namb$; 
/* 
Links to the queues of in-use and available blocks, plus standard type and size fields 
header Spay to QUADWORD UNSIGNED; /* queue header 
flink RESS; /* forward Link 
DLink ADDRESS: /* reverse Link 
nk; 
size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S _NAMB) 
type AA UNSIGNED; /* type code field (symbol EXCHBLKS$K_NAMB) 
std_fill BYTE FILL; /* unused 
alloc ADDRESS; /* Link to List of allocated blocks 
oe Dynamic character string descriptors for name strings 
input QUADWORD UNSIGNED; /* desc for input name 
fullname QUADWORD UNSIGNED; /* desc for most complete (exp or res) 
expanded QUADWORD UNSIGNED; /* desc for expanded name 
result QUADWORD UNSIGNED; /* desc for result name 
de device dvi QUADWORD UNSIGNED; /* desc for canonical device 


/* Descriptors of individual components of name. These might be fixed descriptors petasing into one of the 
/* above strings (usual case), or they might be dynamic copies of the components (the namb was cloned). 


node QUADWORD UNSIGNED; /* desc for node name 
device QUADWORD UNSIGNED; /* desc for device name 
directory QUADWORD UNSIGNED; /* desc for directory name 
name QUADWORD UNSIGNED; /* desc for name name 

type QUADWORD UNSIGNED; /* desc for type name 
version QUADWORD UNSIGNED: /* desc for version name 


/* The rest of the block will be reset to nulls each time the block is allocated. The routine EXCHSCMD_NAMB_CLONE 
is copies the rest of the block to a new namb when it clones the namb. 


CONSTANT start_zero EQUALS .; 
‘s Carry some info from the RMS structures 


fabdev LONGWORD UNSIGNED; /* device ghecector istics. from FABSL_DEV 
/* the whole flags longwo 


naneflags st STRUCTURE LONGWORD UNSIGNED; 
BITFIELD MASK; /* some field contains a ’ ldcard rms? s [nam$v_wildcard] 
ia none BITFIELD MASK; /* file name contains a wildcard rms's nam$v_ <u ite _name 
ty BITFIELD MASK; /* file type contains a wildcard rms's [nam$v_wild_typ 
cS BITFIELD MASK; /* file version has a wildcard rms's [nam$v_wild_ver 
BITFIELD MASK; /* group number is a wildcard rms's C(nam$v_wild_grp 


———. Ta 
* 
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, wild_member BITFIELD MASK; 
* 
explicit_node BITFIELD MASK; 
explicit_device BITFIELD MASK; 
explicit_directory BITFIELD MASK; 
explicit_name BITFIELD MASK; 
explicit_type BITFIELD MASK; 
p explicit_version BITFIELD MASK; 
® 
concealed_device BITFIELD MASK; 
rooted_directory BITFIELD MASK; 
fe vic directory BITFIELD MASK; 
more_files BITFIELD MASK; 
bad_pdp_char BITFIELD MASK; 
dos truncate BITFIELD MASK; 
rt_fruncate BITFIELD MASK; 


END namef lags; 


next ADDRESS; 
assoc_volb ADDRESS; 


/* Keep a copy of the volume and record formats. 


devclass BYTE UNSIGNED; 
devtype BYTE UNSIGNED; 
vol_format BYTE UNSIGNED; 
rec_format BYTE UNSIGNED; 
transfer_mode BYTE UNSIGNED; 
car_control BYTE UNSIGNED; 
fixed_Len LONGWORD UNSIGNED; 
pad_char YTE UNSIGNED; 
uic_member BYTE UNSIGNED; 
vic_group BYTE UNSIGNED; 
flags STRUCTURE BYTE UNSIGNED; 
rfmt_explicit BITFIELD MASK; 
cctl_explicit BITFIELD MASK; 
vfmt_explicit BITFIELD MASK; 
END flags; 


i: Unique volume identifier 
vol_ident_len LONGWORD UNSIGNED; 
vol_ident CHARACTER LENGTH 128; 
CONSTANT “‘Length’’ EQUALS .; 

END namb; 


/e 
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member number is a wildcard rms's Cnam$v_wild_mbrJ 
device name is explicit rms's [nam$v_node] 
device name is explicit rms's Lnam$v_exp_dev 
directory name is explicit rms's [nam$v_exp_dir 
file name is explicit rms's NEOnSV OND Nene? 
file type is explicit rms's Lnam$v_exp_typ 
an explicit version number rms's Lnam$v_exp_ver 


device name hes a root dir rms's Lnam$v_root_dir 
directory is CGROUP,MEMBER] rms's Cnam$v_grp_mbr 


CLISGET_VALUE gave us the CLI 
a char Tn the name or type fi 
name or type too long for DOS 
name or type too long for RT1 


device name is a concealed dev rms's trantvcroot a'r 


COMMA status 


Some commands Link multiple nambs off this pointer 
address of mounted volb referencing this name 


Since both /VOLUME and /RECORD are local qualifiers 


device class (a DC$_xxx symbol) 


device type (a DT$_xxx symbol) 
volume format code, a constant volb$k_vfmt_xxx 
record format code, a constant filb$Sk_rfmt_xxx 
transfer mode code, a constant filb$k_xfrm_xxx 
carriage control code, a constant filBSk_cCtl_xxx 
Length of FIXED records 
pee character, default 0 

inary member number for uic directories 
asneey group number for uic directories 
the whole flags byte 
record format specified 
carriage control specified 
volume format specified 
Length of the next field. Used for text display only, 
comparisions look at the entire vol_ident field 


needs to be as long as a logical name 
length of data structure 


$ 
ete isn't valid for RT11 or DOS11 
1 


it is only 
/* when we fetch the parameters that we can see any explicit qualifiers. Implied volume formats can be done when 
/* we see the parameter. Implied record formats can't be done until we have the fully expanded filename 
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/t+ 

/* 

SRMSB - RMS structures for a file 

. Contains all the RMS control structures for a file. 


/*- 


AGGREGATE rmsb STRUCTURE PREFIX rmsb$; 


os Links to the queues of in-use and available blocks, plus standard type and size fields 


header STRUCTURE QUADWORD UNSIGNED; /* queue header 
flink ADDRESS; /* forward Link 
ALP ,SBORESSS /* reverse Link 
nk; 
size WORD UNSIGNED; /* standard size ef the block (symbol EXCHBLK$S_rmsb) 
type BYTE UNSIGNED; /* type code field (symbol EXCHBLKSK_rmsb) 
P std_fill BYTE Le /* unused 
t 
va alloc ADDRESS; /* Link to List of allocated blocks 
oe Storage for the following control blocks is allocated at the end of the block 
fab ADDRESS; /* pointer to RMS File Access Block 
rab ADDRESS; /* pointer to RMS Record Access Block 
nam ADDRESS; /* pointer to RMS Name Block 
esbuf ADDRESS; /* pointer to RMS Expanded String Buffer 
rsbuf ADDRESS; /* pointer to RMS Result String Buffer 


~ The rest of the block will be reset to nulls each time the block is allocated 
CONSTANT start_zero EQUALS .; 


/* is only due to restrictions in SDL that these are not actually defined here. 


/* buf_fab CHARACTER LENGTH #fab$k_bin; /* RMS File access block 
/* buf_rab CHARACTER LENGTH #rab$k_bln; /* RMS Record access block 
/* buf_nam CHARACTER LENGTH #nam$k_bln; /* RMS Name block 
/* buf_esbuf CHARACTER LENGTH #nam$c_maxrss; /* RMS expanded name buffer 
, /* buf _rsbuf CHARACTER LENGTH #nam$c_maxrss; /* RMS result name buffer 
* 
CONSTANT “‘Length"* EQUALS .; /* Length of data structure 


END rmsb; 


/* Other items which would be in here if SDL supported external Literals. This space is allocated with the 
/* rest of the block. Certain pointers above point to these buffers. This area is part of the block, it 


is normally hang from VOLBSA_VFMT_SPECIFIC. 


jon 
@rt_dirseg = 1024; 
rt_root = 6; 
AGGREGATE rtl1 STRUCTURE PREFIX rt11$; 
pe dummy QUADWORD FILL; 
size WORD UNSIGNED; 
type BYTE UNSIGNED; 
i std_fill BYTE FILL; 


CONSTANT start_zero EQUALS .; 
~ Variables to describe RT-11 go here 
status STRUCTURE WORD UNSIGNED; 
dir_present BITFIELD MASK; 
END™ Status; 


CONSTANT end_zero EQUALS .; 


/* and the entire directory 


S Physical block 0 contains the boot block info 
z block_0 CHARACTER LENGTH 512; 
s Physical block 1 contains the volume home blo 
block_1l_overlay UNION 
bloc CHARACTER LENGTH 512; 
home_Block STRUCTUR 
Feplace_tbl CHARACTER LENGTH 130; 
fill. WORD 
init data CHARACTER™ pasate 38: 


bup data GWARALTER LENG 
filT_01 CHARACT WARACTER LENGTH sb FIL 


rte_name SIGNED; 

rte <a WORD UNSIGNED: 

filT_0 CHARACTER LENGTH 16 FILL; 
cluster WORD UNSIGNED; 


~™ 


ck 


L; 


* Directory starts on bloc 
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~ $RT11 = volume specific structure for an RT-11 volume 
/* Contains all the RT-11 specific control structures for a volume. This structure would 


Size of an RT11 oreestory se mans 
pbn 


spacer to put size and type in correct place 
standard size of the block (symbol EXCHBLKS$S_rmsb) 
type code field (symbol EXCHBLKSK_rmsb) 
unused 

complete status word 

directory is resident (up to highest block in use) 


{Ue MAHKAAHHAHAAAAAAAAAAAeKeeAeAKeeeeAeeKeeeeeeeeeeeeekeeeeeeee 


/* From here to the end of the structure are read in the 
/* first few blocks of the disk, containing the home block 


Je AHeeeeeeeeeeeeeeeeeeekeeateeeReteKeeeeeetkeeeeeeeeteeeeet 
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Physical 


dire_segments 
CONSTANT “‘Length’® EQUALS .; 

CONSTANT dirseglen EQUALS #rt_dirseg; 
CONSTANT root_block EQUALS #rt_root; 


END rtil; 


first_seg WORD une] én D; 

Syptes.yors WORD GNED; 

volume-id CHARACTER LENGTH 12; 

owner _f ARACTER LENGTH 1¢; 

systen d HARACTER LENGTH 12; 
Lt_03 RD F 


checksum WORD UNSIGNED; 
END home_block; 
block_1_overlay; 


blocks 2-5 are reserved. 


Directory segments start here 


CHARACTER LENGTH #rt_dirseg*31; 
/* Length of data structure 
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= home block structure for an RT=-11 volume 


EXCDEFS.SDL;1 
/* $RT11HOM 


/t+ 
/e 


RT-11 VOS Home Block Format 


(From RT-11 V5 source file DUPROT.MAC) 
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y segment 
system use. 
/* INITIALIZE /RESTORE data area 


/* bad block replacement table 
/* BUP data area 


INITIAL IZE/RESTORE data area 


BUP_ information area 


RADSO RTE (RTEM) 


Block number of first user file (RTEM) 
Pack cluster size 
Block number of first director 


Bad block replacement table 


ANGELL LLL RR 
eeeueseeeueeecn 
MMT OoOoOvoo 


owns Or 
AVL LLL 


CHARACTER LENGTH 3 
CHARACTER LENGTH 1 
CHARACTER LENGTH 260 FILL; 


WORD FILL; 


S22a— v0 @t ee’ 


ALL other areas in the home block are reserved for future 


The contents of all other areas are undefined. 


(End of DUPROT.MAC inclusion) 


Field Location (8) 


data 


66 


ace_tbl CHARACTER LENGTH 130; 


rt 
init 


re 


fi 


AGGREGATE rtilhom STRUCTURE PREFIX rt1lhom$; 
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D UNSIGNED; 
reenter, YOR UNS: 
rite big rN ha LENGTH 14 FILL; 
steseer WORD UN D; 
Hirstiseg WORD UNSIGNED: 
volume-id CHARA TER LENGTH 12: 
owner_name CHARACTER LENGTH 12; 
system_id CHARACTER LENGTH 12; 


fill _03 WORD FILL; 
checksum | WORD UNSIGNED; 


CONSTANT “Length EQUALS .; 
END rtilhom; 


/* 
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Ten Rock ameet ter Tutt oe user file 


Pack Gluste ter size 


PBN o directory segment 
azetes yers on number 

Volume 

Owner name 


System ID 
Checksum (not really used) 
length of data structure 


EXCDEFS.SDL;1 
Define various RT11 directory structures. 


RT=-11 directory segment header 
GSRESATS rtiihdr STRUCTURE PREFIX rtiihdr$; 


WORD UNSIGNED; 
WORD UNSIGNED; 
WORD UN ; 


/t 
CONSTANT “‘Length’’ EQUALS .; 


END rtiihdr; 

/* 

. RT-11 directory entry 
e 


GeeneeAre rtilent STRUCTURE PREFIX rtilent$; 


fill_00 BYTE FILL: 
type_union UNION; 
type_byte BYTE UNSIGNED; 
BITFIELD LENGTH 4; 


type 

type_bits STRUCTURE; 
yp_tentative 
typlempty 
typ_permanent 

typ_end se 


typ-protécted 
type_bits; 
END type_union; 
filename L 
filetype 
blocks 
hannel 
ob 
date STRUCTURE WORD 
year 
day 
month 
END date; 
CONSTANT “‘Length"* EQUALS .; 
END rtilent; 


es be ba ee a ee 


B 
B 
8 : 
nt B LD MASK; 
8 LD LENGTH 3 FI 
8 LD MASK; 


/e 
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/* 


/* 
LL; 


31 


These will not be independent 
structures, but will be mapped over the directory segments as needed. 


Total number of segments in this directory 
Segment number of next logical segment 

Highest segment in use - valid for segment 1 only 
Extra bytes per directory entry 

Pbn where stored data begins 


Length of data structure 


Type of directory entry 
Entry is integer in first part 


Tentative file 
Empty onery 

Permanent file 

Last (possibly incomplete) entry in segment 


/* File is protected 


§ Radix-50 characters 
Radix-50 characters 

Total sanges of file 

<not meaningful for EXCHANGE> 
<not meaningful for EXCHANGE> 
Creation da H field 

Years since 19 

In decimal, 1-3 

In decimal, 1-12 


length of data structure 


/* 
/* 
/e 
/* 


/* 
/* 
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RT-11 tite context block This is a combination 
for an RT11 random access file 


SOCRATES rtlictx STRUCTURE PREFIX rtlictx$; 
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of the FAB, RAB and NAM block 


Links to the queues of in-use and available blocks, plus standard type and size fields 


entry union UN : 
entry CHARACTER LENGTH 14; 


header STRUCTURE QUADWORD UNSIGNED; /* queue header 
flink ADDRESS; /* forward Link 
blink ADDRESS; /* reverse Link 
END Link; 
size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S_rtlictx) 
type BYTE UNSIGNED; /* type code field (symbol EXCHBLKSK_rt1lictx) 
std_fill BYTE FILL; /* unused 
alloc ADDRESS; /* Link to List of allocated blocks 
Addresses of associated control structures 
assoc_filb ADDRESS; /* address of the filb 
assoc_volb ADDRESS; /* address of the volb 
1/0 buffer for this record stream 
buffer ADDRESS; /* Pointer to the buffer 
CONSTANT start_zero EQUALS .; /* here to end is cleared for each copy command 
Data to describe a record stream in the file. 
cur_block LONGWORD UNSIGNED; /* pbn of current block 
eof_block LONGWORD UNSIGNED; /* pbn of Last block in file 
“ cur_byte LONGWORD UNSIGNED; /* offset into the block 
. Flags for an open file. This longword will be zero when file is not open 
flags STRUCTURE LONGWORD sated $0731 /* the whole tore lLongword 
stream_active BITFIELD MASK; /* block currently goede jpes an open file 
qutput_ tile BITFIELD MASK; /* block currently describes an output file 
ush BITFIELD MASK; /* tell advance routine to flush last block 
ointer BITFIELD MASK; /* tape position is at this file 
ND flags; 
Pointers to the 1/0 buffer for this record stream 
put ~base. pieck LONGWORD UNSIGNED; /* Pon of first block in buffer 
high-b LONGWORD UNSIGNED; /* Pbn of Last block in buffer 
Rion” blotk y-. ee LONGWORD UNSIGNED; /* Pbn of highest block to the file 


® 
. The next part is a duplicate of the directory entry 


/* The overall entry 
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entry_fields STRUCTUFE; 
471108 


ie * BYTE FILL; 
type_union UNION; 
type_byte BYTE UNSIGNED; /* Type of directory entr 


type TFIELD LENGTH 4; /* Entry is integer in first part 
type_bits STRUCTURE; 
yb_tentative BITFIELD MASK; /* Tentative file 
typ_empty BITFIELD MASK; /* Empty ory 
Ue pemaaetine BUTIELB RAGE: 7e Contr @BOSeTALY incompete? entry in segnent 
piend_s n : as oss ncomplete) entry in segmen 
tyr fiit 08. BITFIELD LENGTH 3 FILL; F . : : : 
ty protected BITFIELD MASK; /* File is protected 
E type.b ts; 
END type_union; 
filename ONGWORD UNSIGNED; /* ¢ Radix-50 characters 
filetype WORD UNSIGNED; /* 3 Radix-50 characters 
blocks WORD UNSIGNED; /* Total Length of file 
hannel BYTE UNSIGNED; /* <not meaningful for EXCHANGE> 
° YTE UNSIGNED; /* <not meaningful for EXCHANGE> 
date STRUCTURE WORD UNSIGNED; /* Creation date field 
year BITFIELD LENGTH 5; /* Years since 1972 
day BITFIELD LENGTH 5; /* In decimal, 1-31 
BITFIELD LENGTH 5; /* In decimal, 1-12 
END date; 
END entry_fields; 
END entry_union; 
ee 
S Expanded name fields 
* 
exp_fullname_len LONGWORD UNSIGNED; /* Length of the concatenated name 
exp_name_len LONGWORD UNSIGNED; /* Length of the name field 
exp_type_len LONGWORD UNSIGNED; /* Length of the file extension (type) 
exp_protected CHARACTER LENGTH 2; /* for normal files, ‘P ‘' for protected 
exp_ fullname CHARACTER LENGTH 10; /* Name in normal form, no embedded blanks 
exp_name CHARACTER LENGTH 6; /* Blank padded name 
exp_type CHARACTER LENGTH 35; /* Blank padded extension 
exp_date CHARACTER LENGTH 11;  /®* VMS format ascii date 


/* The following items define the location of the above onry. They can be used to restore to a position in the 
/* RT11 Sirectory. such as to continue wildcard processing of the directory. Note, however, that the RT11 

/* giroctory os t be reorgent see for many different reasons, such as the creation of a file. The routine 

/* EXCHSRT11_CHECK POSITION will check to make sure that these values still describe the location of the entry, 
- adjusting them fo the new location if the entry is not in the same position. 


start_block LONGWORD UNSIGNED; /* starting pbn of file 
seg_number LONGWORD UNSIGNED; /* directory bognens containing this entry 
sep_eddress ADDRESS; /* address of start of current segment 

te ent_address ADDRESS; /* address of next directory entry 
CONSTANT end_zero EQUALS .; 
CONSTANT “‘Length*’ EQUALS .; /* Length of data structure 


END rtlictx; 


EX 
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{t+ 

/* 

/* SRTNAM 

/t 

/t- 

SeCnESATS rtnam STRUCTURE PREFIX rtnam$; 


/t 


te input. filename QUADWORD UNSIGNED; 
size WORD UNSIGNED; 
type BYTE UNSIGNED; 
std_fill BYTE FILL; 


output_ filename QUADWORD UNSIGNED; 
input _sticky_name QUADWORD UNSIGNED; 
CONSTANT start_zero EQUALS .; 


. Flags for boolean DCL command qualifiers 
qual_flags STRUCTURE LONGWORD UNSIGNED; 
a_confirm LD 


=——-— 


i 4 
° 

apretect BI 
Q_protect_explicit 
g system BI 
QD qual_flags; 


/* 
. Local command flags 


e 

~ Othe: misc data items 

. Work area for the current input file 
inp_filb ADDRESS; 


ine inp_namo ADDRESS; 

in Work area for the current output file 
out_filb ADDRESS; 
out_namb ADDRESS; 


/* 


m Contains the work area for the DELETE and RENAME verbs 


/* Dynamic character string descriptors for name components. 
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These strings are reclaimed at the start of each command 


desc for current item from input parameter List 


standard size of the block (symbol EXCHBLK$S_rtnam) 
type code field 


unused 


(symbol EXCHBLKS$K_rtnam) 


desc for output parameter 


name to make input files sticky 


here to end is cleared for each command 


the whole flags longword 


value for protect 
an explicit /PROTE 


b 
C 


t, not useful unless explicit also set 


it, 
T or /NOPROTECT was seen 


the whole flags lLongword 
the input potential 


the command is DELET 


Y describes multiple files 


the command is RENAME 
output filename for rename has been fetched 


pointer 
pointer 


pointer 
pointer 


to a filb f 
to a namb d 


to a filb f 
to a namb d 


or the input file 
escribing the input file 


or the output file 
escribing the output file 


mm 
—= 


,™ 


' 
. 
' 
. 
' 
* 
' 
. 
' 
. 
' 
. 
' 
. 
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. 
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. 
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. 
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. 
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. 
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CONSTANT *t 


END rtnam; 


ef 


zer 
gth 


nf 


QUALS .; 
QUALS .; 
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/* no need to clear the buffers (or create pages not to be used) 
/* Length of data structure 


N 
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{e+ 

/* 

A $VOLB = Volume Control Block 

J One entry per active foreign volume. A partially filled VOLB is used to describe RMS files. 


1 
| 
| 
| 
/e- 
AGGREGATE volb STRUCTURE PREFIX volb$; | 
/* 
. Links to the queues of in-use and available blocks, plus standard type and size fields 
header J ead oe QUADWORD UNSIGNED; /* queue header 
flink DRESS; /* forward Link 
prem ADDRESS: /* reverse Link 
nk; 
size WORD UNSIGNED; /* standard size of the block (symbol EXCHBLK$S_VOLB) 
type Byte UNSIGNED; /* type code field (symbol EXCHBLKS$K_VOLB) 
ts std_fill BYTE FILL; /* unused 
ee alloc ADDRESS; /* Link in List of allocated $VOLBs 
fe Storage for the following control blocks is allocated at the end of the VOLB 
fab ADDRESS; /* pointer to RMS File Access Block 
rab ADDRESS; /* pointer to RMS Record Sesess Block 
nam ADDRESS; /* pointer to RMS Name Bloc 
esbuf ADDRESS; /* pointer to RMS pokey String Buffer 
pe rsbuf ADDRESS; /* pointer to RMS Result String Buffer 
1 assoc_namb ADDRESS; /* namb from the volume mount 
a The rest of the block will be reset to nulls each time the block is allocated 
; CONSTANT start_zero EQUALS .; 
a 
i Device characteristics variables (from $GETDVI or invented for virtual devices) 
devbufsiz |LONGWORD UNSIGNED; /* device buffer size 
devchar LONGWORD UNSIGNED; /* device shoracteristies ($devdef symbols) 
devclass LONGWORD UNSIGNED: /* device class ($dcdef (DC$) symbols) 
devdepend LONGWORD UNSIGNED; /* device dependent characteristics 
govneasen LONGWORD UNSIGNED; /* device name length 
deviyp LONGWORD UNSIGNED; /* device type ($dcdef (DT$) symbols) 
Sovncabinck LONGWORD UNSIGNED; /* maximum number of blocks on device 
volmaxblock LONGWORD UNSIGNED; /* maximum number of blocks on volume | 


/t 
is Other bits and pieces 


status any 5s WORD UNSIGNED /* status flags tor volum 
connected BITFIELD MASK; /* RMS Record stream cammeeeedl to volume | 
read. to BITFIELD MASK; /* /DATA_CHECK=READ 
writé_check BITFIELD MASK; /* /DATA_CHECK=WRITE 
foreign BITFIELD MASK; /* Mountéd as a foreign volum 
virtual BITFIELD MASK; /* Native mode file mounted on a virtual volume 
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write BITFIELD MASK; /* Open volume for READ/WRITE access 
vfmt_explicit BITFIELD MASK; /* Volume format specified 
yer\Tied : BITFIELD MASK; /* Directory structure has been verified 
us; 
channel WORD UNSIGNED; /* channel assigned to device 
a Some commands chain multiple nambs from a volb 
ns namb_head ADDRESS; 


/* The following structure keeps a bit for each directory segment (bits 1:31) plus a single bit to flag whether 
/* qirpctery write caching is active (bit 0). This is an interim attempt to produce decent performance until 
os full caching is implemented. !7?? 
dircache STRUCTURE LONGWORD UNSIGNED; /* complete directory cache lLongword 
dircache_active BITFIELD MASK; /* cac 19 is in force 
/* remaining bits map to directory segments 
j END dircache; 
* 


/* The eeeenne format specific longword would normally point to a structure 
/* whose composition depended on the FORMAT byte. 


ni vfmt_specific ADDRESS; 
vol_format BYTE UNSIGNED; /* constant volb$Sk_vfmt_xxx 
CONSTANT ( 
vfmt_invalid, /* value 0, format not set to known value 
vfmt_dos11 /* DOS-11 magtape 
vimt_files{1, /* Files-11 
{\ vfmt_rtmt, /* RT=-11 mag tape 
vfmt_rtil /* RT-11 disk 
F ) EQUALS O INCREMENT 1; 
® 
CONSTANT vfmt_lobound EQUALS 0; /* low bound for case statement 
Pe CONSTANT vfmt_hibound EQUALS volb$Sk_vfmt_rt11; /* high bound 
The vol_type is a text string identifying the volume type, i.e. ‘'RT-11"' or ‘DOS-11" 
vol _type_ten LONGWORD UNSIGNED; /* Length of the volume type 
vol_type CHARACTER LENGTH 8; /* Could only be "'RT-11"' or ‘DOS-11"', doesn't need to be long 


/* Identification of the $VOLB. This is a unique string which is used to find SVOLBs. For foreign-mounted 

/* devices, this is the actual hardware device name, in the format ""_Dxcn:"' (e.g. ‘_DYAO:"’) as returned by 

/* $GETDOVI. For virtual devices, this is the ori shay input device string of the form ‘'name:"’, which is 

/* treaced as a logical name. When a virtual device is created, the resultant file name string is stored in the 
/* vol_ident so that it can be signalled by the standard ‘volume has been initialized’’ message, therefore the 

/* vol_ident field is much longer than would normally be expected. 


vol_ident_len LONGWORD UNSIGNED; /* Length of the next field 
vol-ident CHARACTER LENGTH 128; /* Volume ident buffer 
devnam CHARACTER LENGTH 64; /* device name buffer 


/* Other items which would be in here if SDL supported external literals. This space is allocated with the 
/* rest of the block. Certain pointers above point to these buffers. This area is part of the block, it 
is only due to restrictions in SDL that these are not actually defined here. 


a —— 


EX! 


EXCDEFS.SDL;1 16-SEP-1984 16:40:48.78 Page 38 


/* cHARAcT R LENGTH #fab$k K-Btn /* RMS File access block 

/* buf_ra CHARACTER LENGTH #rab$k /* RMS Record access block 
/* CHARACTER LENGTH #nam$k— “bin; /* RMS Name block 

/* CHARACTER LENGTH #nam$c_maxrss; /* RMS expanded name buffer 
/* buf rsbuf CHARACTER LENGTH #nam$c_maxrss; /* RMS result name buffer 
CONSTANT “‘Length’’ EQUALS .; /* Length of data structure 


END volb; 


/* 


END_MODULE ; 


| 
— eee | 
2 eee eee 
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